home *** CD-ROM | disk | FTP | other *** search
/ World of Sound / World of Sound.iso / utils / modeditors / quadracomp / samples / qcinstall2.0 < prev    next >
Encoding:
Text File  |  1993-03-16  |  3.3 KB  |  171 lines

  1. ;$VER: QCInstall v1.00
  2. ;By Bo Lincoln 1993
  3. ;This script uses the installer program to install Quadra Composer to
  4. ;your hard drive. 
  5.  
  6. (complete 0)
  7. (welcome)
  8.  
  9. ;Check kickver
  10. (if (< (/ (getversion) 65536) 37)
  11.     (abort ("You must have kickstart 2.0x to use this installation "
  12.         "utility, and to run QuadraComposer 2.0")  
  13.     )
  14. )
  15.  
  16. (message
  17.     ("\nThis program lets you install Quadra Composer to your hard ")
  18.     ("disk drive. If you don't own one, abort installation immediately. ")
  19. )
  20.  
  21. (set sdir (pathonly @icon))
  22. ;Get dir for drawer
  23. (set tdir (askdir (prompt ("Where do you want to install Quadra Composer 2.0?"))
  24.         (help ("Select a drawer where you want to install the ")
  25.         ("Quadra Composer 2.0.\n")
  26.         )
  27.         (default @default-dest)
  28.     )
  29. )
  30. (set @default-dest tdir)
  31.  
  32. (set ans (askbool 
  33.             (
  34.             (prompt "\nDo you want to make a new drawer called QuadraComposer?")
  35.             (help "")
  36.             )
  37.         )
  38. )
  39. (if 
  40.     (= 1 ans)
  41.  
  42.     (
  43.         (makedir (tackon tdir "QuadraComposer") (infos))
  44.         (set tdir (tackon tdir "QuadraComposer"))
  45.     )
  46.  
  47. )
  48. (working ("Copying Quadra Composer"))
  49. ;Copy main program
  50. (copyfiles
  51.     (source (tackon sdir "QuadraComposer"))
  52.     (dest tdir)
  53.     (help @copyfiles-help)
  54.     (infos)
  55. )
  56.  
  57. (complete 50)
  58.  
  59. (if (OR (exists (tackon sdir "Samples") (noreq)) (exists (tackon sdir "Modules") (noreq))  (exists (tackon sdir "Envelopes") (noreq)))
  60.     (if ( askbool 
  61.             (
  62.             (prompt "\nDo you wish to install some example modules, samples and envelopes?")
  63.             (help "")
  64.             )
  65.         )
  66.     (
  67.         (makedir (tackon tdir "Samples") (infos))
  68.         (makedir (tackon tdir "Modules") (infos))
  69.         (makedir (tackon tdir "Envelopes") (infos))
  70.         (if (exists (tackon sdir "Samples") (noreq))
  71.             (
  72.                 (copyfiles
  73.                     (source (tackon sdir "Samples/"))
  74.                     (dest (tackon tdir "Samples/"))
  75.                     (all)
  76.                     (infos)
  77.                 )
  78.             )
  79.         )
  80.         (if (exists (tackon sdir "Modules") (noreq))
  81.             (
  82.                 (copyfiles
  83.                     (source (tackon sdir "Modules/"))
  84.                     (dest (tackon tdir "Modules/"))
  85.                     (all)
  86.                     (infos)
  87.                 )
  88.             )
  89.         )
  90.         (if (exists (tackon sdir "Samples") (noreq))
  91.             (
  92.                 (copyfiles
  93.                     (source (tackon sdir "Envelopes/"))
  94.                     (dest (tackon tdir "Envelopes/"))
  95.                     (all)
  96.                     (infos)
  97.                 )
  98.             )
  99.         )
  100.     )
  101.     )
  102. )
  103.  
  104.  
  105. ;50%
  106. (complete 70)
  107. (message
  108.     "\nAnd now the fonts, QC 6 & 8, will be copied..."
  109. )
  110. (copyfiles
  111.     (source (tackon sdir "fonts"))
  112.     (all)
  113.     (dest "FONTS:")
  114.     (fonts)
  115.     (help @copyfiles-help)
  116. )
  117. (complete 75)
  118. (message
  119.     "\nSome textfiles are included in this package; manual and replayroutines."
  120.     " They will now be installed..."
  121. )
  122. ;Copy manual
  123. (copyfiles
  124.     (prompt "Select files to copy:")
  125.     (source sdir)
  126.     (dest tdir)
  127.     (help @copyfiles-help)
  128.     (choices
  129.         "QCManual2.0.txt"
  130.         "QCManual2.0.guide"
  131.         "QCReplay.s"
  132.         "QCFastreplay.s"
  133.     )
  134.     (confirm)
  135.     (infos)
  136. )
  137. (complete 85)
  138. (if (exists (tackon sdir "QuadraPlayer"))
  139.     (if ( askbool 
  140.             (
  141.             (prompt "\nThere is a stand-alone module player distributed with QuadraComposer."
  142.                     "\nDo you wish to install it?"
  143.             )
  144.             (help "")
  145.             )
  146.         )
  147.         (copyfiles
  148.             (source (tackon sdir "QuadraPlayer"))
  149.             (dest tdir)
  150.             (help @copyfiles-help)
  151.             (infos)
  152.         )
  153.     )
  154. )
  155.  
  156. (complete 95)
  157. (message
  158.     "\nThis is the last part of this installation. 'reqtools.library' will "
  159.     "be copied to your libs: drawer, if you don't " 
  160.     "already have a later version installed."
  161. )
  162. (copylib
  163.     (prompt "Copying reqtools...")
  164.     (help @copylib-help)
  165.     (source (tackon sdir "libs/reqtools.library"))
  166.     (dest "libs:")
  167.     (confirm)
  168. )
  169. (complete 100)
  170. (exit ("Have fun!"))
  171.